0 PLOT   = 49152 : LINE    = PL+3  :      CLEAR  = PL+6  : RECHT   = PL+9
1 SETUP  = PL+12 : SHOW    = PL+15 :      MEM    = PL+18 : ELLIPSE = PL+21
2 TEST   = PL+24 : INVERT  = PL+27 :      SPEICH = PL+30 : LEFT    = PL+33
3 RIGHT  = PL+36 : HARD    = PL+39 :      UP     = PL+42 : DOWN    = PL+45
4 WRITE  = PL+48 : ZMEM    = PL+51 :      COPY   = PL+54 : W2      = PL+57
5 SSETUP = PL+60 : CHARSET = PL+63 :      LADEN  = PL+66
10 B1=32:B2=40:X=95:Y=0:A=0:B=7
12 POKE53281,0:POKE53280,0:POKE646,7
15 SYS SE,100,100:SYS SH,1,0,7,1,0
17 SYS ZMEM,53248,0,0
20 SYS MEM,B2,B1:SYS CLEAR
30 SYS MEM,B1,B2:SYS CLEAR
40 INPUT"[147]TEXT:";N$:AN=LEN(N$)
50 FORI=1TOAN
60 A$=MID$(N$,I,1)+CHR$(34)
70 FOR Z=ATOB
80 SYS CH,Z+1,8,0,Z
90 SYS WR,X,Y,A$
100 SYS LE:SYSDO
110 H=B1:B1=B2:B2=H
115 SYS MEM,B1,B2
120 SYS CO,B2,B1,8
130 NEXT
140 NEXT
150 GOTO40